teams <- c(rep("yankees", 40), rep("padres", 40), rep("mariners", 40), rep("dodgers", 40))
salary <- c(rnorm(40, mean = 25), rnorm(40, 16), rnorm(40, 23), rnorm(40, 15))
df <- data.frame(teams, salary)
head(df)
## teams salary ## 1 yankees 23.32796 ## 2 yankees 24.14309 ## 3 yankees 25.77968 ## 4 yankees 24.08930 ## 5 yankees 24.52521 ## 6 yankees 23.30517